PL/AmSo COMPILER © MASTER ee 01/01/26 00:00:00 SAGE 


LRMX co Hie testi COMPILATIGN OF MODULE MASTER 
CBYECT MODULE PLACED IN TAPSOEV/MASTER.O2J 
seen INVOQKXEQ 2Y: sS¥STEM:PLMSS TAPSSEV/MASTER. SRC COMPACT 
EA : 
1 MASTER: 30; | gy" 
2 1 ROSCREATESMAILSOX: PROCEOURZCTASKTK-RTN_CODE) WORD EXTERNAL? © 
3 2 De CLARE TASKTK WOROD,/RTN_CODE POINTER; . me 
4 2 END RQ3SCREATZSMAIL30X3 vt — 
5 1 RMZASATTACHSFILE: PROCEDURECUSE ernie eager NAME, yay 
RESMEX,/RTN_COCE) EXTERNAL; ; 
c 2 DECLARE PATH NAME te eee CODE POINTER; 
? 2° DECLAZE USER WCRO-CONNECTION WORD-RESMBX WORD? 
4 ? . END FOPASATTACHSFILEZ 
9 1 REZSASOPEN: PROCEDURE CCONNECT/MNODE, SHARES RESPONSE,RTN_CODE)D 
EXTERNALS 
19 z DECLARE CONNECT WORD,/MODE WORD,/SHARE 3YTE-> 
| RESPONSE WORD-RTN_CODE PCINTER: 
11 2 ENS RQSAS0PEN; 
12 1 ROEASREAD: PROCEDURE C CONNECT, 3UFF_PTR-COUNT/RESOONSE-RIN_CODE) 
EXTIRNALS ae 
136 2 JECLARE CONN=CT WORD/EUER_PTP POINTER-COUNT WORD, 
RESPONSE WORD-RTN_COD= POINTER; 
14 2 END RGBAGREAO; 
15 1 ROGASSEEK ORICEDURECCONNECT-MOOQE-HI_ORDER-LOW_ORDER- RESPONSE, 
RTN_COBE) EXTERNAL? : 
16 ? DECLA2E CONNECT WORD-/MODE #CRO,HI_OROER WORD, 
LOWLORDER WORD,RESPONSE WORO,RTN_CODE POINTER? 
hat Pa END ROSASSEEK, = 
13 1 RCSASCLOS=: PROC ZOURE (CONNECT ZR ZSPONSE-RTN_CODE) EXTERNAL; 
19 2 RECLARE CONNECT WORD/RESPONSE WORD/RTN_CODE POINTER? 
20 2 END RQSASCLOSE? | 
27 1 ROSGETSTASKS TOKENS: PRCCEDURECTASKN,STATUS) WORD EXTERNAL; 
22 20 DECLARE TASKN WORD,/STATUS POINTER 
23 2 | END RQSGETETASKSTOKENS? : 
24 1 ROEOELETZSSEGMENT: PROCEDURECOSJECT-RTN_CODE) EXTERNAL? 
25 2 DECLARE OSJECT WORD/RTN_CODE POINTER? 
26 2 ENS RQSOELETESSEGMENT; | : 
27 1 RQOSCREATERSEGHENT: PROCESURECSTIZE,/RTN_COD=) WORD EXTERNAL? 
28 2 DECLARE SIZE WORD-RIN_CODE POINTER; 
29 2 ZNO ROSCREATERSEGMENT? 
30 1 RUSLOOKSUPEGIJECT: PROCEDURECTASKTK,O35_NAME,TIME,/RTN_CODE) WORD EXTERNAL; 
31 2 DECLARE TASKTK WORD/OBJ_NAME POINTER/TIME WORD, 
| RTN_CODE oaks 
32 2 END PODLOOKSUPSO3JECT 
33 1 ROSCREATESTASK: PROCEDURE (PRIORITY/CODE_S2G/DATA_SEGs STACK_SEG, 
" STACK_SIZE-FLAGS,/RTN_CODE) WORD EXTERNAL; 
34 2 DECLARE PRIORITY BYTE/CODE_SEG POINTER, 
DATA_SEG WORD-/STACK_SEG POINTER, 
STACK_SIZE WORD/FELAGS WORD/RTN_CODE 
POINTER? 
35 2 : END ROSCREATESTASKS 
36 1 RUSGETSTYPE: PROCEDURECQBJECT/RIN_CODE) WORD EXTERNAL; 
37 2 DECLARE OBJECT WORD,/RTN_CODE POINTER? 
38 2 END RGSGETSTYPE; 
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CADSs PROCZTDURZCCONNECT-RESPONSE,RTN_CODE) EXTERNAL, 
DECLARE CONNECT WORD,RESPONSE WORD, 
RTN_CODE POINTER; 
ae RQTAELOAD, 
CIVe Ie SS aor! 2 RCCe PER mbes eT een Ol neato? WORD EXTERNAL, 
FECLARS MATL_BOX WORD,TIME WORD,RESPONSE POINTES, 
STATUS POINTER; 
IND RQSKRECEIVESNESSAGE, 
PSeteSSAGE# pe OCSSUR EC IATL 3x 5050 e CHR RES HONG Rea CODE) EXTERNAL, 
DECLARE MAIL _S3SO0X WORD-O3JECT WORD-RESPONSE WORD, 
RTN_CODE POINTER; 
END ROSSENDIMESSLGE; 
ALOGSOSJ2CTs PRESARIO ey? Vee OTN ae YN CODE) EXTERNAL, 
DECLARE JOB WORD-OBJECT WORO,NAME POINTER, 


Rit COSe POINTS Ry 
END RRECATALOGSOSJECTS 
Telos dgoss PROCEDURECTYPE-MESSAGE-RTIN_CODE) EXTERNAL, 
DECLARE TYPE wWORD,MESSAGE POINTER/RTN_CODE POINTER, 
END ROSEXITSIOSJ03, 
LBEXCEPTIONSHANDLER: PROCEDURECEXCPSTRUC-RTN_CODE) EXTERNAL, 
| DECLARE CEXCPSTRUC-RTN_CODE) POINTER, 
END ROSSETSEXCEPTIONSHANDLER, 
SoSLLes PROCEDURECSEGMENT,/RTN_CODE) WORD EXTERNAL, 


DECLARE SEGMENT WORO-RTN_CODE POINTER? 
ENO 2QGSGETSSIZE;s 
SDEFAULTSUSER: PROCZEIURECJO3-/-RTN_CODE) WORD EXTERNAL; 
DECLARE JOS WORD/RTN_CODE POINTER? 
END RQGGETSDEFAULTSUSER; 
POSFAULTSPREFIX: PROCEQURE(JO5/2 TN_CODE) WORD EXTERNALS 
DECLARE JOB WORD-/RTN_CODE POINTER; 
EMD oe ra Beem (SPREr I 
ETESMATL3OX: PROCEDUTECMSEX_TOKEN-RTN_CODE) EXTERNAL; 
DECLARE MSX_TOKEN WORDZRTN_CODE POINTERS 
ZND RQSDELETESMAIL30X; 
ATALGGEOBJECT: PROCEDUR = CJOBTKN/NAMEZRTN_ CODE) EXTERNAL; 
DECLAR= JOSTKN WORD/2TN_CODE POINTER; 
DECLARE NANE DOINTERS 
END RQSUNCATALOGSOSJECT; 
ZTESTASK PROCEIURECTASKIO-P IN CODE) EXTERNAL? 
DECLARE TASKID WORD-RTIN_CODE POINTER; 
END ROTDELETESTASK; 
PROCEDURE CSOURCE*RESULTZLENGTH) “EXTZRNGEL? 
DECLARE SCURCE POINTER-RESULT POINTER-LENGTH WORD; 
END BINAS; 
> PROCEDURECTYPE-SMSSTKN-M=ESSAGE) EXTERNAL; 
JECLARE TYPE WORD-MSGTKN WORD,/MESSAG= POINTER; 
ZNO TAPSER; 


DECLARE LOEAL_M3X WORD PUBLIC? /*FOR 320S RESULTS RETUEN*/ 
SINCLUSE (2:00: TAPSDEV/COMNON. SRC) 

SAVE NOLTST 

SINCLUDE (200: TAPSOEV/GHF.EXT) 

toay es NOLTST 

SINCLUCE (:D0:TAPSQE V/XPES. SRC) 
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INOSDATASPTR 
DATASLENGTH 


POINTER, 
WORD, 


e 

x INCLUDE FILE MMXPRT.LIT 

* wat eae Goan’, wee cae Gem ae lt ee” ame na aa ee Ge eae Sa eee Seow, ee a cocoa 

* THIS INCLUDE FILE DEFINES THE MMX, MIP ANO GMF SYSTEM PORT NAMES 

* 

x USED IN THE MSP OPERATING SYSTEM. INCLUDE THIS FILE IN YOUR CODE 

* ; 

* TO MAKE IT INDEPENDENT OF CHANGES IN PORT NAMES OR DEVICES. 

* 

SEG bee eee epee ee Se ae RR IK RR I RA IRR IK I FOR TOK FOR I IO I IOI IO IO I ek 

/x SPU-C IS DEVICE O IT. CURRENTLY HAS 123 SYSTEM x / 

/* PORTS USED AS SHOWN 3ELOW x / 

DECLARE 
XTHSRETURNEPORT “LITERALLY ‘OOOH’, /* XTH 8IOS RECEIVE PORT 
FLIDPYFRETURNSPORT LITERALLY GG1H’, /x* CPTO FLIPPY RECEIVE PORT 
PRINTER SBRETURNSPORT LITERALLY O02H’, /* CPIO PRINTER RECEIVE PORT 
THC LITERALLY ‘’OO3H’%, /x TAPS MASTER CONTROLLER 
Cu LITERALLY CO4H’, /* TAPS CM 
TAC LITERALLY ’OO5H’, /* TAPS APPLICATION CONTROLLER 
£M1 LITERALLY ‘GOSH’, /x PLICATION MANAGER #1 
AMZ LITERALLY ’QQ7H’%, /*x APPLICATION MANAGER #2 
AMS LITERALLY COBH’, /* APPLICATION MANAGER #3 
704 LITERALLY ‘’OOSH’, /* I/0 “WANAGER #1 
Ia2 LITERALLY ‘’OOAH’, /* I/0 MANAGER #2 
TS1 LITERALLY 008K’, /* TAPS SPARE PORT #1 
TS2 LITERALLY ‘OOCH’, /* TAPS SPARE PORT #2 

/x CPIO IS DEVICE 1 IT CURRENTLY HAS 2 SYSTEM x/ 

/x PORTS USED 4S SHOWN x/ 
FLIPPYSXMITSPORT LITERALLY °100H’, /* CPIO FLIPPY XMIT PORT 
PRINTERSXMITSPORT LITERALLY °101H’%,> /* CPIO PRINTER XMIT PORT 

je SER. TS DEVICE 2 TT AAS 41 “SYSTEM PORT x | 
XTHST5445P0RT1 LITERALLY ‘’205H’; /* XTH SIOS XMIT, PORT x/ 

/* XTHSI5443PORT1 SHOULD BF SET TO 2OOH IF 544 BOARD*/ | 
SINCLUDE CHD0:TAPSDEV/TCRDAT. SRC) 
BSAVE ! 
DECLARE TAPSSMASTER LITERALLY “’TMC%; 
DECLARE TAPSECM LITERALLY ’CM’; 
DECLARE TAPSTAMT LITERALLY ’AM1°; 
/x 
KM*KARKOQEPINES TYE TCB FOR XTH INTERFACE MESSAGE XKAK. 
x / 
NECLAR= TCSSPARTSONE LITERALLY ’ 
FUNCTIONSCOL: BYTE, 
FUNCTIONTFLAGS BYTE, 


* 
* 
* 
* 
* 
* 
* 
* 
re 
* 
/ 


*/ 
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COUNTE TRANSFERRED WORD, 
NAME SPTR POINTER’, 


Hott 


FCSSPSRTSIWO. LITERACLY.. ” 


= cAGGr icon | WORD, 
= TORS$ST WORD, 
= TITSENTRYSTOKEN WORD, 


RESERVEDIC4) WORD, 
TeKMS STATE ‘SY TEs 


= TTSINDEX SYTE, 
= MSGSDESTSMEX WORD, 
2 TERMSNAMESS44 (016 “SYTE, 
2 MESS3STARTS544(80) 8YTE’%, 
= /*x 
= xf 
: TCESAREASDATA LITERALLY “STRUCTUREC 
= TCALPARTSONE, 
= TCBSPARTSTWO) “3 
/* 


kee eR RARE OQEFINES THE STRUCTURE OF AN AM MESSAGE xKxaRKKx 
RR KKK RRA RKESENT SY CM TO SCCOMPLISH A TRANSACTION#XXex KKK 
zk] 
DECLARE AMSMESSAGESAS 
TCBIOARTSONE, 
SESERVEDCS) WORD, 
TTSINIEX 
TERMBNAMES5S 44016 
TT_INODQEX BYTE,/TWA_READ_FLASG BYTE, 
IQO_SUFFLPTR POINTER, TWA_PTR POINTER) 7; 


fence “STRUCTURE (¢ 
ION WORD, 

TALS S71 22 

EST3MAX wORD, 
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Ra RRARHAKERDZEINES THE MESSS 
we KKK RKEKEXKTO ABN AM PROCESS 
KKK KAKA KKK KT OMS eke KEK KK 
kf 
DECLARE AMSSTARTUPEANSGS LITERALLY “STRUCTURE ( 

PART1CG) S8YTE-OATA_LENGTH WORD, 
PART2C6) 2YTS7EXCE PTION WORD, 
PARTS (32) SYTE,-NAHEC14) BYTE- 
PORT_ID WORD/A4_ TABLES WORD)’3 


ESSAGERRKRKKKKKE 
M INITIALIZATION xk ake xk 


bouiouw 


/* 
panes: R THE AMA KR KKKE KKK KKKK 
TLOS THER KKKK RR KKK KEK 

KKK KR RK KK KK 
142 1 DECLERE ANSSTARTENSG “L2TERALLY “STRUCTURS ( 
TOS (49) SYTEz 
AM PORT_ID WORD, 
AM_TABLES WORD)’; 
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x / 
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TURNLFEOM_CM LITERALLY ‘O77H’; 
STLSEAD LITERALLY “OFOH’; 
ET TWA LETEPALLY “Ore? 
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MAST cr 
DECLARE TAPSUOOWN LITERALLY “OFPEH*, 
DECEARS CHULOGONW -LITERMLLY “CRPPH? 
DECLARES TASK START sLITSSALLY “GEOR”, 
[x 


KR KAR RO kK TERMINAL STATUS CODES KKK KK RK KKK RK KKK RK KK 
x ; 
DECLARE TAPS_TERM LITERALLY ’-47; 


/*x ; 
RHR KR RAK KKK KEKE KREKK KK DEFINE TAPSER CODES KKK KKKKRKAKKKKKKK: 
x / 4 
NECLARE TERMOP_ERR LIT *1367, 
SCREENS Re Lin der 
CHDCWN LIT pea y 
SYSTENS SRR LIF “W138"% 
TRANS ER®- LIT 440% | 
TWARZAD Ee es eae ae a, 
TWA ERR eo aes Roca 
OPENER i aa ole g 
SAP C Bae. Ate 2 
NOTACT bay. ne 9 
SRESTORE 
DECLARE FSTIME WORD INITIAL), 
DECLARE TERM_NAMEC1E) BYTE DATAC’ a 
OECLARE CMFLAG BYTE? 
DECLARE DOWN_FLAG SYTE-, 


DECLARE NAMEC(%) SYTE DATAC10,’TAPSMASTER’); 

OCL RDFCN WORD; 
DCL TTC WORD; 

DCL MSSTKN WORDS 
DCL TPM3OX WORD; 
DCL HSGSEG WORD: 
DCL STATS WORD; 
NCL OUTKN WORD; 


DCL MODE WORD; 
9CL J WORD; 
Hei 2t WORD; 
DEL kK WORD; 
DCL SHARE BYTE; 
9CL ICOUNT WORD; 
DCL RITKN WORD, 


DCL DO_CONNECTION WORD; 

oo Mea =R WORD; 

DCL EX_OVERIDE STRUCTURE (OFFSET WORD, 
BASE WORD, 
MODE BYTE); 


J> 
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uw 
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DCL INTKN WORD, 

OCL TORPTR POINTER, 

DCL ITORPTS STRUCTURECOFFSET HORD-BASE WORD) AT CAIORPTR)- 

DCL IOREST BASED IORPTR STRUCTURECSTATUS wORD-USTATS WORD, 
ACTUAL WORD); 

BCL 2PHPTR POINTER? 2 a 

DCL ITPMOTS STRUCTURECOFFSET WORD,B3ASE WORD) AT CRIPMPTR); 

OCL IPMSG BASED TPMPTR TCSSAREASDATAz 

UCL TAP Se 
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181 1 DCL S=EGTKN WORD; 
152 ' 1 DCL 4ASGPTR POINTER; : 
183 1 DCL MSGPTS STRUCTURE (OFFSET WORD,-BASE WORD) AT COMSGPTR); 
134 1 OCL THEMSS BASED MSSGPTR TCBEAREATDATA; 
135 1 NCL PATH_NAMEC20)3YTE INITIALC’  . fe 
184 1 OCL LIST_LENGTH LITERALLY °87%; 
187 4 DCL TASK_“SX WORD; 
168 1 OCL TASK _LIST CLIST_LENGTH) STRUCTURECNAME (8) BYTE, 
CODE WORD, 
DATASEG WORD, 
STACK WORD, 


4MSGSE6 WORD, 
TASKID WORD), 


1389 1 DCL TASK_ACTIVE SYTES 
190 1 SCL STATUS WORD 
191° 4 DCL NATLBOXSELAGS WORD; 
192 1 DCL § INITIALSNSS(=) BYTE OATAC1BH,’+’s18H,29H~ 
“TAPS MASTER TERMINAL’, 
TBH,’ C%,13H,°G< “,18H, °=!157%, 
13H, (°,13H,°G< . i, . 
18H, 76°, 70° ,-138H-°=7 °F 13H, vTGK er ‘7 
154,7°= 6°,73H-°R7-18H7 7°87 TEH, TO" ODN) /e® TBH = ESC CHARx/ 
1 1 a¢ CLEARSSCREEN(*) SYTE DATACIBH, RS 1TBHL NDS | , 
194 1 DCL HI_LMESSAGEC*) SYTE DATACISH, °F’, “TPS System running’, CR, 
4ane "COC" ry" 2TPS. HI cm O’,CR,LF); 
195 1 DCL REFRESHEMSGC*) 2YTE DATAC13H, = 6%," ae ; 
Lene Shs6 yp 7,138H,"7= 6°,71BH-7""); 
196 1 DECLARE UNLOCK (2) BYT= DATAC1BH, 7"); 
197 1 DCL INIT_FLAS BYTE; 
198 1 DCL TCESSIZ= WORD? | 
199 4 DCL MASTERSMBX WORD PUBLIC; 
200 1 DCL MESSAGERPTR POINTER? 
201 7 DCL Me SSAGEYRECVSPTE POINTERS 
202 1: DCL QPENSCONNECTION WORD? : 
203 1 SCL TCESAREA BASED MESSAGESPTR TC3SAREASDATAZ 
204 4. DCL  -MESSELENGTH WORDS ier mee My se IF lite 
205 1 DCL MESSSRECVSLENGTH WORD; | : | wee De whosknowsL 3 
206 1 NCL DUNMY WORD; 12 ee 
207 1 ocl FUNCODE WORD? | Ji | | bet who tknows2 [I 
208 1 CCL RETURNSM3OX WORDS ern Pci Rootsjob I 
PRK I RARER IER ER HEIRESS EMI IER IEA RIT ISNA I DIE RR IES IIAP SANE IAS IARI ATR AI EY ; 
/* OPEN TERMINAL USING TC3 SENT FROM TAPS LOGON CUSP & 
LEA REA EAL ES ERR SERA RS ORE ee EAS LR RR RAN Ee RS ee ee NORTON 
205 1 OPSLOGSTERM: PROCEDURECMESGSPTR-RTN_CODE) } 
210 2 DECLARE CHES Ge TReRTIN_CODE) POINTER? ; 
241 a. DECLARE MESS BASED MESGSOTR TCRSAPEASDATA; 7 
212 2. DECLARE USTATS BASED RTN_CODE WORD; 
213 MESSSLENGTH = 128 ; 
214 2 MESG.IND3DATABPTR = OFFFFFH; 
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215 2 7 MESG.EUNCTIONSCODE = 43 /* 
214 2 SENDEMESSASE: 
CALL MQSSENDSMESSAGEC 
OPENSCONNECTION, 
MESGSPTR- 
MESSELENGTH, 
TAPSSYASTER, 
STATUS)? 
217 2 CALL MQSDELETZSRCS 
218 2 USTaT Ss: S74 ress 
219 RETURN? 
220 2 END OPSLOGSTERM; 
/x CLOSE TERMINAL 
LAK RRR KEK RR RAK KER KKK RE KK K&R KKK KKKKKK KEK KK 
221 4 CLELOGSTERM: PROCEDNURECMESGEPTR-RITN_ 
222 2 DECLARE (MESGSPTR/RTN_CODE) POINTER; 
223 2 JECLARE M=SG BASED MESGEPTR TCBSAREASDATA 
224 2 DECLARE USTATS BASED RTN_CODE WCRD; 
225 2 MESSSLENGTH = 32 + 16 } 
226 2 MESG.INDSOATAZPTR = OQFFFFFH;? 
227 2 MESG.FUNCTION?CODE = 57 /x 
228 2 SENDSMESSASE: 
CALL MQ3SENDSMESSAGEC 
OPENS CONNECTION, 
MESG3PTR>, 
MESSELENGTH, 
TAPSSMASTER, 
SSTATUS) 2 
229 2, _ CALL MOSDELETELRC3 CA 
230 2 USTALS = STATUS? 
231 Z RETUEN; 
232 zZ ENO CLILOGSTERN; 
/* WRITE TERMINAL BLOCK MODE 
233 4 WRTEPM: PROCEDURE CRUFFER,-COUNT); 
234 2 DECLARE SUFFER POINTER; 
235 2 DECLARE COUNT WORS; 
236 2 MESSSLENGTH = COUNT + 483 
237 2 MSGPTRSBUFFER; 
238 2 MESSSLENGTHSMESSSLENGTH? 
235 2 THEMSS.FUNCTIONSCO3E = 17. /x 
240 2 THEMSG.DATASLENGTH = COUNT? 
241 2 CALL MOQSSENDSMESSAGEC 
OPENSCONNECTION, 
RUFFER, 


Mes LEK 


CLOSe 


Code) 


7 
‘SGEPTR,2STATUS), 


CHESGSPTR-ASTATUS), 


x/ 
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MESSBLENGTH, 

TAPSSMASTER, 

DSTATUS); Se 
CALL MQSDELETESRCBCRUFFER,SSTATUS)# 


2 = 
2 RETURN, 
2 ENG WOTESRM, 
[RK KR RK KK KR eK KR KOK KR KKK KKK KKK KK KKK KKK KK KK KEK / 
/* MSAD TERMINAL BLOCK MGDE x/ 
[KK KK RK KR RK KK RK KR KK KR KKK KKK KK AKA KA E/ 
1 ROTERAs PROCEDURE CBUFFER,-CQOUNT,ACTUAL)D, 
z DECLARE CBUFFER,ACTUAL) POINTES, 
2 DECLARE COUNT WORD, 
2 DECLARE RESULT SASED ACTUAL WORD, 
2 ESSTLENGTH = 32 + 14 + COUNT, 
2 eee eco ' 
2 THEMSGeAFUNCTIONICOOE = O07 /* READ x/ 
2 THEYSS.DATASLENGTH = COUNT; 
Z THENSG.FUNCTIONSFLAGS = Q; /x BLOCK MODEx/ aa 
2 CALL MQSSENDSMESSAGEC 
OPENDCONNECTION, 
3UFFEQ, 
MESSSLENGTH, 
TAPSSMASTER-, | 
QSTATUS); 
2 CALL MESDELETEPRCSC3UFF ZReaSTATUS), 
2 RETURN, 
2 END ROTER Ms 
LK KKK RK KK KK KKK RI KIO KI KKK KKK KKK KKK KKK KKK KKKK RK KK / 
/* ROUTING TO CHECK RCSB SIZE AND GET A NEW ONE TF ETS TO SMALL xf 
[RK RK KKK KKK KK KEK KK KK KKK KKK KKK KKK KKK KKK RK KR KKK KK / 
1 CHECKh aCe S122 s -PROCSIUR EC AS Si2e) s 
2 DECLARE Roe) oon oe WORD; 2 
2 DECLARE N=EW_RC3 POINTER; 
2 DECLARE CUR_SIZ=E WORD, 
C. CUR_STZE=RQASGETESIZECMSGPTS «BASE,/ASTATUS); 
2 IP CUR SI ZE=16SR ES SIZE THEN: DG? 
5 NEW RCS=MOSCREATESRCSCREQ_SIZE-ASTATUS), 
3 CALL MOVE CMSGPTR,NEW_RCE,-438+THEMSG.COUNTSTRANSFERRED); 
3 CALL MOSOELETESRCACMSEPTR-SSTATUS), 
5 MSOPTRENEW RCA, 
is Noy, 
2 RETURN, 
2 END CHECK _RCB8_SIiZE?> 
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[KKK RK KK KKK RK OK RK RRR KKK EK KKK KEK Keke RK RK RK KKK KKK / 
/~ START A TASK | x/ 
[KER KER RK KKK KIRA KKK KR RK RK KR RK RRO RK Rok KK Rk Rok kk RK RK ee / 


oie | START_TASK: PROCEDURE CFILE_LNAME,/RIN_MSS)Z 
ne CECLARE FILE_NAME POINTER, RTN_MSS WORDS 
274 2 DCL NAME C*) BYTE DATAC1O,°START_TASK’)3 
203 eg DCL LSGPTR POINTERS 
276 02 DCL LSGPTS STRUCTURECOFFSET WORD/3ASE WORD) AT CALSGPTRIZ 
ott 862 NCL TLS BASED LSGPTR STRUCTURE CEXCODE WORD, 
| RECCNT WORD, 
ERRREC BYTE, 
UNDEFS WORD, 
INIP WORD, 
CS3 WORD, 
STKOFF WORD, 
S52 WORD, 
SSZ WORD, 
DS3 WORD); 
278 2 Dele TEC WORD; 
ery “2 OCL TYPE_CODE WORD: 
280 2 DCL -LOSEG WORD; 
261 2 CCL RTTKN WORD; 
232 2 DCL PRIORITY 35YTE; 
ee5° 22 OCL DATA_SEG POINTER: 
2384 2 DCL DATALSEG_PTS STRUCTUREC(OFFSET WORD,/3ASE WORD) AT CQDATA_SEG); 
255. 22 OCL CODE_SEG POINTER; 
236 2 DCL CODE_SEG_PTS STRUCTURECOFFSET WORD,/BASE WORD) AT CACODE_SEG); 
237 0 2 DCL STACK_SEG POINTERS 
268 2 DCL STACK_SEG_PTS STRUCTURECOFFS=T WORD,/BASE WORD) AT C8 STACK SEG); 
289 2 DCL STACK_SIZE WORD; 
290. 2 SEGTKN=0; 
291 2 CALL RGSASATTACHSFILECTAPS_USER,DO_CONNECTION-FILE_NAME, 


LOCAL_M3X,3STATUS); 


252 2 LE STATUS<>0 THEN GOTO ae 

294 2 RDFCONSRQOFP ECEIVELMESSAGECLOCAL_MNSX-OFFFFH,O,-2STATUS); 
235 2 TYPE_CODE=RUSGETSTYPECR oe ater 

296 2 LF TYPE_CODE=5 THEN DO; 

298 3 STATUS=1072. 

299 3 SEGTXN=RDFECNs 

300 3 GOTO ERROR_EXIT; 

301 3 END; 

362 2 CALL RCSASLCADCROFCN/LOCA ee Se 

303 2 IF STATUS<>0 THEN GOTO =RROR_=XIT? 

305 2 LDSEG = RQ aeeee LUE ESSAeE CECE. MBX, OFFFFH/@ TTC, aSTATUS) 4 
306 2 SEGTKNELDSEG; 

397 g IF STATUS<>9 THEN GCTO ERROR_EXIT; 

309 2 LSGPTS.3ASESLOSEG; 

410. 2 LSGPTS.OFFSET=G; 

311 2 TF TLS.EXCODE <> O THEN DO; 

S15 255 STATUSHTLSWEXCODE? 

S74 3 SOTO E&RGR_EXIT; 

S45 3 SND; 
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316 2 PRIORITY=150; 
317 2 OSTA S26 20 TS eShSS=TuS 45S 
218 2 DATA_3EG_PTS.OFFS=T=0;3 
319 2 STACK_SEG_OTS.3ASE=TLS.SSAz 
320 2 STACK _SEG_PTS.OFFSSET=GF 
324 2 STACK SIZS=TLSeS523 
322 2 CODE_SEG_PTS.3ASE=TLS.CSBz 
325 2 COGE_SEG_PTS.CFFSETHTLS.INIP 
324 2 RTTKN = RQSCREATZ3T ASK (PRIORITY, 
CUS. SEGsF 
DATA SEG. PTSsSRSe, 
STACK SEG, 
STACK_SiIZ= 
0, 
SSTATUS)-; 
325 2 LF STATUS<>G THEN GOTO ERROR_EXIT? 
/xFIND AN EMPTY LIST ENTRY AWD SAVE THE SEGMENT VALUES*/ 
/*SO WE CAN DELETES THEM LATER Lf 
327 2 90 T=0 TO LIST_LENGTH-1; 
RZE a: IF TASK _LISTCI).COOE=9 THEN DO; 
330 4 CALL MOVBCRPATH NAME(S) /-2TASK_LISTCI) sNAME, 3) 32 
331 4 TASK_LISTCI) .CODE=CODE_SEG_PTS.BASE, 
22 4 TASK_LISTCI) .DATASEG=IATA_SEG_PTS.BAS5; 
335 4 TASK_LUSTCI).STACK=STACK_SEG_PTS.3ASE 
334 4 TASK. LESTCI)«MSGSES=IPMPTS. BASE 
S56 4 TASK. LIS TCD) ZTASKEOS RTTKNG 
236 4 I=LIST_LENGTHS 
337 4 END; 
338 3 END? : 
339 2 BLL RQSDELETESSESGMENTCLOSEG,-SSTATUS); 
340 2 eee 
341 2 ERROR EXIT: 
, CALL TAPSERCSTATUS-RIN_MSG/ENAME) > 
342 Z TE SEGTKN<>0 THEN CALL 2USDELETESSEGMENTCSEGTKN-SSTATUS); 
344 2 RETURN: 
345 2 IND START_TASK; 
eee ee 
/* MAIN: PROCEDURE CODE xf 
De ee ee ala te asentanie ek eK KKK KKK KK AK KK 7 — 
346 1 PITKNEPOSGETSTASKSTOKENS ¢ 
347 1 SX_GVERIOS.OFESETHC; 
344 1 EX _ OVERIOE.3ASE5=07 
349 1 EX OVERTOESHODE=0; 
359 1 CELE 2OSSE TBEXCEPTIONSHANOLER CHEX_OVERIDE,&STATUS)? 
351 4 OCAL_“MBX=RQOSCREATESHMAILIOX (CO, RS TATUS) J& , aby 
Soe 1 BS TSR SR AXENCSACTIVETESMATLEOXCTAPSSMASTER, status) @— POY jporit 
353 1 OPENSCONNECTION=MQSOPENSOS STINATIONCXTH3I5443 PORT1,2STATUS) ¢ 
354 1 CALL R@SCATALOGSORUECTCO,MASTERSMEX 79010, °TAPSMASTER’ )/ESTATS)s ea 1 
355 34 TAPS _USERERQSGETZIEFAULTSUSER CO,SSTATUS) ese’ 
356 1 DO_CONNECTION=ROSGET EDEFAULTSPREFIX(O/3STATUS); 
Sr 1 CALL SETSCO,/OTASK_LIST-144); 
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AGS=FALSE; /*SET FLAG TO IKDICATE CM NOT YET ACTIVEx/ 
OREVERZ 
=SSAG=SRECVSPTREMQ’ REC EIVESMESSAGE CLASTERSMBX, - why, 
OFFFFY, 
\ 2MESSSRECVSLENGTH, 
<Co ADUM eR 
‘ASTATUS) 
SGPTREMESSAGEIRECVSPTR; Ne a 
=THEMSG »TERMBSTATE; ee 
Se. Ly Ree 
907 /*START A MASTER SUSTASK AND SEND IT A MESSAGE*/™ ~ 
/xCHECK FOR SPECIAL COMMANDS TO TAPS MASTER*/ 
CALL CHECK_RC8_S12E(128);3 
. \ 
CALL SETAC’ %,3PATH_NAME,15);3 
TASK _ACTIVE=FALSE 


SSS > EG Tine pede a 
AND J < 16; 


DO WHILE THEMSG 


PATH NAMECJIETHEMSGMESSSSTARTSS44 (CJ); 
J=J+13 

ENS? 

PATH _NAMECO) =J-1, 


/*CHECK FOR VALID TAPS COMMAND*/ 


TF CMPSCATHEMSG.MESSESTARTES44(1) 780° TAPS“) 74)<>0FFFSH TH 


CALL TAPSERC1T09-4SSPTS.BASE,UNAME); 
T=6, 

GOTO 9CIT; 

ENO; 


/* CHECK ITF ITS A REQUEST TO STOP TAPS x/ 
F CMPBCETHENSSAMESSSSTARTS544(6)-AC’DOWN’ 
L=10; | 
IF CMFLAG<>TRUE THEN DO; 
“TAPSERCNOTACT/MSGPTS BASE, NAME) } 
GOTO OCIT; | 


AN aoe COUR? 


S0TO el 
ENO? 


fe CHECK FOR A BEVUEST -TD SWITCH FROM MASTER TO. CM ¥/ 


= N 


WIEFUls, OH VWusu eu 


DQ; 


»/4)=0FFFFH THEN D0; 


r CMP 3 CETHEMSGMESSSSTARTI544(6)/-8¢°°LOS0N’)-5) =OFFFFH THEN 450; 
ee 
THEMSG.FUNCTIGNECODE=3; 
a ie 
ENO, 


raewe 
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/* CHECK FOR & REQUEST TO SWITCH FROM MASTER TO HI */ 


400 4 TE CMOZCSTHEMSGUMESSASTARTY5S44(6),8°°LOGOFF’), 6) =OFFFFH THEN 00; 
402 5 24:03 
403 5 S61 SOIT; 
404 5 END; 
/x ITS NONS OF THE ABOVE SO IT MUST SE A MASTER */ 
/x TERMINAL FUNCTION REQUEST SO LETS 9O IT x/ 
/*FIRST WE GET A SEGMENT AND CONSTRUCT A MESSAGE*/ 
405 4 J=16; 
406° ¢ DO WHILE THEMSG.MESSSSTARTS544(J) = 1FH OR 
THEMSS~MESSSSTARTS544(4J) = 1CH; 
407 5 J=Jt+; 
408 5 ENO? 
409 4 K=O; 
410 4 TPMPTREMQSCREATESRCEC2Z56-ASTATS); 
411 4 CALL SETSCO,/IPMPTR,32);3 : 
412 4 CALL MOVBCETHEMSS.TERMINAMESS44,39I9°4SG.TERMSNAMES5S44,16)3 
413 4 IPNSG.INDSDATASPTR=OFFFEFH; , 
414 4 TPMSG.TERMSSTATE=03 
415 4 POUSEVEXCERT TONE OF 
416 4 TOMSG.MSGSDESTEMBX=THEMSG eMSGSDESTSMBXS 
417 4 OO WHILE J<THEMSG.COUNTSTRANSFERREDt1 AND THEMSG.MESSSSTARTSS44 04) <>" 7% 
418 5 IPMSGsMESSSSTARTSS44 (X47) =THEMSGMESSSSTARTS Baa G 
419 5 J=J+1; 
420 5 K=K+1; 
421 5 ENO; 
422 4 IPMSGAMESSESTARTES44COVEKE 
423 4 TPMSG.EXCEPTION=Q; 
424 4. IPMSG.DATASLENGTH=208 
/¥NEXT WE CHECK .TO SEE IF THIS TASK IS ALREADY</ 
/*ACTIVE AND I= SO FIND HIS MAILBOX AND SEND x/ 
425 4 NG6-I=0 TO LIST_LLENGTH-1; 
426 5 TF CMPRCEPATH_NAME C6) /2TASK_LISTCI) aNAME, 
: PATH _NAME(O)-5) =OFFFFH 
THEN DQ; 
426 6 TPMROXSRALLOOK SUP BOSIECTCO-RPATH_NAME,-O-ASTATUS)? 
429 6 TASK_A CTIVE=TRUE; | 
430 é IT=LIST_LENGTH: 
431 6 END; 
432 5 ELSE TASK _ACTIVE=FALSE; 
433 5. IND; 
434 4 TF TASK _ACTIVE=TRUE THEN GOTO SENDIT; 
436 4 TPMYBOXSRQSCREATESMATLSOXCO,SSTATS) 2 
437 4 CALL RESCATALOGSOSUECTCO/IPM30X,2PATH _NAME,@STATUS); 
43% 4 CALL MQSDELETESEC2CMSGPTR-SSTATUS)? 
439 4 CALL START_TASKCAPATH_NAWZE,/IPMPTS.34S2); 
440 4 IF IPMSG.SXCEPTION<>0 THEN DO} 
442 5 I=¢; 
443 5 CALL 5 SUNCATALOGBOSJECT(O, SPATH_NAME, 9STATUS) | 
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CALL REPQIELETESMATLSCXCIPMBOXs a STATUS) 
MSGPTZ=IPMPTR, 

GOTO B0IT,; 

oNO, 


SENDIT: 
CALL ROSSENDSMESSAGECIPMBOX,IPMPTS.BASE/MASTERSMBX/DSTATS) 3 


END; 
/*xCASE 1%/ DC /% SEND MESSAGE TO TERMINAL AND SET TERMINAL x/ 
/* STATE TO SEND TE&MINAL RESPONSE TO ORIGINATOR*/ 
THEMSG.TERMSSTATE=2; : 
CALL WETERMCMSGPTR,THEMSS «DATASLENGTH)? 
END} 
/*CASE 2*/°903 /* READ THE TERMINAL INPUT IN RESPONSE TO THEX/ 
/* MESSAGT JUST SENT x/ 
THEMSG.TERMSSTATE=3; 
CALL ROTERMCMSGPTR,SO,-3ICOUNT) 5 
END; | 
/xCASE 3*/ DOZ /*FORWARO THE “MESSAGE TO THE MSGSOESTSMBX */ 
/*SPECIFIEZ0 IN THE TCS JUST RECEIVED+/ 


CALL ROSSENDS Bee ee cy ase Sane eR 
END; 
/xCASE 4%/ 907 /*RESERVED FOR. TERMINAL SWITCH TO CM CONTROL */ 
THENSG.TERNSSTATI=A13;3 
THEMNSS.DATASLENGTH=E0; 
MESSSLENGTH=THEMSG.DATASLENGTHTGE; 
CALL MQ@SSENDSMESSASECTAPSCMSMBX-MSGPTR,/NESSSLENS TH, Oy @STATUS) 3 
END: 


/*CASE Sx/ D0; /xDISPLAY MESSAGE ON TERMINAL AND DO NOTHING ELSEx/ 
| THEMSS.TERMSSTATE=193 | 
CALL WRTERMCMSGPTRTHEMSG.DATASLENGTH); 


END; 
/*CASE 6*/ DO; /*WRITE AN ERROR MESSAGE TO THE TERMINAL*/ 
THEMSS.TERMSSTATES7Z 


CALL WRIEERMCOMSGPTR,-THEMSG.DATAPTLENGTH), 
ENG, 
/*CAS=S ¢*/ 007 L*PROMPT FOS ANOTHER TAPS COMMAND x«/ 
IF THEMSG.FUNCTIONECODE=RETURN_FROM_CM THEN 
INIT_FLAG=TRUE, 
THEMSS eTERMSSTATES&S;3 


f 
Tr INITLFLAG=TRUE THEN O07 /*DO INITIAL*/ 
CALL. CHECK RCA SIZEC204)7 : 
CAL! MOVACRINITI ALSMSG,aT 


HEMSS «MESS SSTARTS544,148);3 
INIT_FLAG=FALSE; | 
CALL WRTERM(MSGPTR,148); 


ENO, 

US 2.. 7/300: REFRESH*/ 
DO; 
CALL CHECK:> RES S122076);7 
CALL MOVE CG@REFRESHSMSGPVATHEMSG.MESSSSTARTS544,45),; 
CALL WRTERMCMNSGPTR-45); 
END, 
eNO, 

/xCASE 2Fx/ 00; /*ISSUZ A‘READ TO A TERMINAL */ 

THEMNSS.ZTERMSSTATE=C- 
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CALL ROTERMCHSGPTR-S6/23ICOUNT) > 


495 4 
496 4 ENO; | 
1 are {XCASE Ges DOF /KRESERPVED FOR TAPS LOGON*/ 
496 4 IF THENSS.FUNCTIONSCODE=1 THEN THEMSG.TERMESTATE=17;7 
500 4 ELSE THEASG.TERMSSTATE=18- 
501 4 CALL UPELOGETERMNCNSSETR-SSTATUS), 
aCe 4 END, 
503 3 {*xCASE 10*/D07 /*PREPARE FOR TERMINAL LOGOFF 3Y SENDING A CLEAR x/ 
/*SCREEN AND SET TO CONVERSATIONAL MODE MES SAGE x] 
5904 4 CALL CHECKURES SEZ ECIO)7 
/*CHECX IF THE TERMINAL BELONGS TO TAPSx/ 
/x IF SO SEND TAPS DOWN MESSAGE AND THATS*/ 
/* THATS ALL FOR THIS GUY x / 
ey as) 4 IF THEMSG.NSGSOESTSMBX=OFFFFH THEN 00; 
507 5 THEWSS «TERMSSTATE =19; 
596 5 CALL TAPSERC134-NSGPTS.3ASE-ANAME) 7 
509 > CALL MOVSCSCLEARISCREE =N, DTHEMSG.MESSSSTARTS544(0) 7,4); 
519 5 CALL WRIERHCMSSOTR,-THEMSG.DATASLENGTH); 
311 5 END, 
512 4 eLoer DO? 
s13 5 THEMSG .TERMSESTATEH137 
574 5 CALL MOVBCECLEAR3SCREEN, 2THEMSG MESS SSTART 544742)3. 
515 5 CALL WRTERMACMSGPTR, 42); 
S16 5 END, 
Se 4 ENQ; 
51% 3 /*CASE 114*/ DOO? 
519 4 CALL MOVBCSPATH_NAMEC1)- 


STHEMSG.MESSSSTART?544(04) ,106), 
CALL MOVE CHREFRESHSMSG-/STHEMSG.MESSSSTARTS544(0),4);- 
THEMSG.TERMESTATE=19; 
CALL WKTERMCMSGPTR 1644); 
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523 4 END? . 
524 3 J*CASE 12%*/9007/*TAPS DOWN PROCESSING STARTS WITH MSG TO CHx/ 
525 4 MES SSLENGTHEMESS3RECYSLENSTH? 
Z 
526 4 CALL MQSSENDSMESSAGECTAPSCMSHMBXSMSGOTR,>MESSSLENGTH, 
. O,BSTATUS)s 
527 4 CALL MQSDELETERRCACMSGPTR,-SSTATUS) 3 
528 4 ENOs 
529 3 /*CASE 13%*/007. /*TERMINAL OISCONNECTED FROM TAPS */ 
530 4 THEMSG.TERMESTATZ=16; 
531 4 CALL CLELOSSTERMCMSGPTR-SSTATUS); 
532 4 ENODZ 
533 3 /*CASE 14*/907 /*CM STARTU> COMPLETE x*/ 
534 4 TAPSCMEMSX=EMOSOPENSDESTINATIONCTAPSSCH,/SSTATUS); 
525 4 CMFLAG=TRUE? ) 
536+ 4 THEMSG.~TERMSSTATE=57 
537 4 L=6; 
538 4 GOTO DOIT; 
539 4 ENO? 
540 3 /*CASE 15*/007/*0ELETE SUBORDINATE TASK ON REQUE STH/ 
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541 4 TASK_MSX= ae ‘LOOK EUPSOS JECT CO, ATHEMSG.MESSSSTARTS544, 
OFFFFH,aSTATUS); 

542 4 CALL RQSUNCATALOGSOSUECTCOLATHEMSGMESSSSTARTS544,4STATUS); 

543 4 CALL ROSVELETSSYATLS OXCTASK_M3X,ESTATUS)-; 

544 4 90: y.-e 0-70 bis. LENGTH<-1, 

545 5 ZF CMPS CATHEMSG.4ESS3 START544(6)- 


STASK LISTCI) NAME,S) =OFFFEH THEN DOG 


a7 6 CALL RGEDELETESSESGMENTCTASK_LISTCI) .CODE-aSTATUS)? 
548 6 CALL seeks rae mecca rei LISTCI) .DATASEG,ASTATUS); 
549 é CALL RQSDELETESSEGMENT (TASK _LISTCI) STACK, SSTATUS) 
550 6 IPMPTS.3ASE=TASK ee i eeeeee | 
551 6 CALL MQSDELETESR 3 CIPMPTR-2STATUS); | ms 
552 é CALL RQSDELETELTASKCTASK_LISTCI) .TASKIO/-SSTATUS); 
553 6 ee cane 
B54 6 CALL SETSCO,ESTASK_LISTCI),&); 
555 6 T=LIST_LENGTH? 
556 6 END; 
Db os7 5 END; - 
553 d, “LF OTHEMSG.FUNCTION?CODS = TASK START THEN 00; 
560 5 CALL MOVACDTHEMSG.MESSSSTARTS544(16), 
ea He M$5.MES8 S$) PoE RT eae Oly heyy 
561 5 THENSG.TERMSSTATE=C; 
562 5: CALL WRTERMCMSGPTR-145)32 
503 5 ENDS . 4 . 
564 4 TE CMP3CETHEMSG.MESSSSTARTSS44°1) ,AC°TAPS/CM’) +7) =OFFFFEH 
(AND DOWN_FLAG=TRUE THEN D207 /*PROMPT THE MASTER TERMINAL*/ 
564 5 L=67 
547 5 CALL TAPSERCCMOOWN,-MSGPTS.3ASE,/3NANE)D » 
S64 5 GOTO DOIT: 
569 5 END? 
570 4 IF THEMSG.TTEINDEX=7 THEN DQ; 
572 a t=77 
ato. -S INIT_FLAG=TRUE? 
574 5 6010. 50212 
575 5 END; 
576 i CALL MQSDELETESRCSCMSGPTR-&STATUS)? 
577. 4 | . END; : 
573 3 /xCLS= 16*/ OC; 
579 4 DUMMY = ROQSCREATESSEGMENTC16-3STATUS); . 
5&0 4 CALL RGSSENDSNESSAGECTHENSG.MSGSOESTISMBX, 
DUMMY,O,2STATUS); 
581 4 CaLlL M@SDELETESRCBCMSGPTR-ASTATUS)> 
562 4 | END; 
543 3 /*CASE W7x*/ 30; 
584 4 TF THEMSG.EXCEPTIOGN<>0 THEN DO; 
584 5 CALL TAPSERCOPENER-MSGPTS.«BASEFANAME) | 
557 5 THEMSS.»TERMSSTATE=19; 
3538 5 GOTO ENDSCASES17;3 
589 5 aNd; 
590 4 INIT_FLAG=TRUE? 
591 b THEMSG.TERMSSTATE=73 
592 4 SCNDSCASES17: 
I =THEMSG.TIRMNSSTATE? 
393 4 GOTO BDOIT; 
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4 END; 

3 /*CASE 13%*/ 203 

ta IF CMFLAG<>TRUE 

5 CALL TAPSERCN 

5 THEMSGeTERMSSTATZ=103 

5 GOTO ENOSCASE218; 

5 ENO, 

4 HEMSGsTERMBSSTAT 

4 ee rea 

4 ZENDSCASE318: 

T = THENSG 

4 GOTO: DOTT? 

ae ENO? 

3 /xCASE 19%/ DOJ /*RELEASE THE 

4 CALL MQSDELETELRCSICHSG 

4 END; 

3 ~=NOD; 

2 END? 

4 END MASTER; 

MODULE INFORMATION: 

CODE ee S12: = O£9CH 37289 
CONSTANT EA SIZE = O12°H 2439 
VARIABLE AREA Sl7= 2007214 2890 - 
MAXIMUM STACK SIZE = OO20H 320 


1SGPTS.SASE,ENAME)D; 
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